1 REM *** U.S. GEOGRAPHY MODULE *** 2 REM PUT LISTS IN GEOGRAPHICAL ORDER 3 REM (IN DIRECT MODE, TYPE 'POKE 53265,PEEK(53265)OR 64' TO MAKE SHIFTED 4 REM CHARACTERS SHOW UP WHEN TYPING THEM IN 10 FF$="U.S.GEOGRAPHY" 11 FF$="@0:Q "+LEFT$(FF$,14)+",S,W" 12 OPEN 2,8,2,FF$ 15 Z$=CHR$(13) 17 POKE 53265,PEEK(53265)OR 64 19 REM * HOW MANY QUIZZES? 20 NQ=8:PRINT#2,NQ 30 FOR I=1 TO NQ:READ TN:PRINT#2,TN 32 FOR J=0 TO 3:READ A:PRINT#2,A:POKE 53281+J,A:NEXT:POKE 53280,PEEK(53281) 34 FOR J=0 TO 3:READ FC$(J):PRINT#2,FC$(J):NEXT 36 READ A$,B$:A$=FC$(3)+A$:B$=FC$(0)+B$:PRINT#2,A$Z$B$:PRINT"[147]"A$:PRINT B$ 38 READ A$,B$:A$=FC$(1)+A$:B$=FC$(1)+B$:PRINT#2,A$Z$B$:PRINT A$B$ 40 FOR J=1 TO TN 42 READ A$,B$:C$="":A$=" "+A$:FOR K=1 TO LEN(B$):A=ASC(MID$(B$,K,1)) 44 IF A<32 OR A>95 THEN A=160:GOTO 47 45 IF A>63 THEN A=A+32:GOTO 47 46 A=A+128 47 C$=C$+CHR$(A):NEXT:B$="[160]"+C$+"[146]" 49 PRINT#2,A$Z$B$:PRINT ""FC$(2)A$"[146]"FC$(3)B$:NEXT:NEXT 50 CLOSE 2:PRINT "";:END 99 REM ** QUIZ #1 100 DATA 19,6,8,5,7,"[144]","[158]","[158]","" 101 REM * QUIZ TITLE 102 DATA "[160][160][160][160][160][160][211][212][193][212][197][211][160][207][198][160][212][200][197][160][213][174][211][174][197][193][211][212][160][195][207][193][211][212][160][160][160][160][160][146]" 103 REM * FORMAT LINE 104 DATA " FROM NORTH ATLANTIC TO WESTERN GULF " 105 REM * COLUMN HEADERS 106 DATA "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 108 DATA "[160][212][201][196][193][204][160][211][200][207][210][197][204][201][206][197][160][160]" 109 REM ** QUIZ ITEMS 110 DATA "MAINE ","3^478 MILES " 111 DATA "NEW HAMPSHIRE "," 131 MILES " 112 DATA "MASSACHUSETTS ","1^519 MILES " 113 DATA "RHODE ISLAND "," 384 MILES " 114 DATA "CONNECTICUT "," 618 MILES " 115 DATA "NEW YORK ","1^850 MILES " 116 DATA "NEW JERSEY ","1^792 MILES " 117 DATA "PENNSYLVANIA "," 89 MILES " 118 DATA "DELAWARE "," 381 MILES " 119 DATA "MARYLAND ","3^190 MILES " 120 DATA "VIRGINIA ","3^315 MILES " 121 DATA "NORTH CAROLINA ","3^375 MILES " 122 DATA "SOUTH CAROLINA ","2^876 MILES " 123 DATA "GEORGIA ","2^344 MILES " 124 DATA "FLORIDA ","8^426 MILES " 125 DATA "ALABAMA "," 607 MILES " 126 DATA "MISSISSIPPI "," 359 MILES " 127 DATA "LOUISIANA ","7^721 MILES " 128 DATA "TEXAS ","3^359 MILES " 199 REM ** QUIZ #2 200 DATA 20,14,7,4,8,"","[144]","[144]","" 201 REM * QUIZ TITLE 202 DATA "[160][193][160][195][210][207][211][211][173][195][207][213][206][212][210][217][160][212][210][201][208][160][207][206][160][201][206][212][197][210][211][212][193][212][197][160][184][176][160][146]" 203 REM * FORMAT LINE 204 DATA " THE CITIES NEAR I-80^EAST TO WEST " 205 REM * HEADERS 206 DATA "[160][195][201][212][201][197][211][160][166][160][212][207][215][206][211][160][160][160][160][160][160]" 208 DATA "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160]" 209 REM ** QUIZ ITEMS IN CORRECT ORDER 210 DATA "HACKENSACK ","NEW JERSEY " 211 DATA "PATERSON ","NEW JERSEY " 212 DATA "WILLIAMSPORT ","PENNSYLVANIA " 213 DATA "YOUNGSTOWN ","OHIO " 214 DATA "CLEVELAND ","OHIO " 215 DATA "TOLEDO ","OHIO " 216 DATA "SOUTH BEND ","INDIANA " 217 DATA "GARY ","INDIANA " 218 DATA "JOLIET ","ILLINOIS " 219 DATA "DES MOINES ","IOWA " 220 DATA "OMAHA ","NEBRASKA " 221 DATA "LINCOLN ","NEBRASKA " 222 DATA "GRAND ISLAND ","NEBRASKA " 223 DATA "CHEYENNE ","WYOMING " 224 DATA "LARAMIE ","WYOMING " 225 DATA "SALT LAKE CITY ","UTAH " 226 DATA "ELKO ","NEVADA " 227 DATA "RENO ","NEVADA " 228 DATA "SACRAMENTO ","CALIFORNIA " 229 DATA "SAN FRANCISCO ","CALIFORNIA " 231 REM NOTICE THAT THE ^ CHARACTER IS USED FOR COMMAS WITHIN ENTRIES. 232 REM 'THE LEAST AND THE MOST' CHANGES THIS TO A COMMA WITH CUSTOM CHARACTERS 299 REM ** QUIZ #3 300 DATA 20,2,4,7,1,"","[144]","[144]","" 301 REM * QUIZ TITLE 302 DATA "[160][160][160][160][160][195][201][212][201][197][211][160][207][198][160][212][200][197][160][205][201][211][211][201][211][211][201][208][208][201][160][210][201][214][197][210][160][160][160][146]" 303 REM * FORMAT LINE 304 DATA " CITIES YOU VISIT ON A DOWNSTREAM TRIP " 305 REM * HEADERS 306 DATA "[160][195][201][212][201][197][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 308 DATA "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160]" 309 REM ** QUIZ ITEMS IN CORRECT ORDER 310 DATA "GRAND RAPIDS ","MINNESOTA " 311 DATA "MINNEAPOLIS ","MINNESOTA " 312 DATA "ST.PAUL ","MINNESOTA " 313 DATA "LA CROSSE ","WISCONSIN " 314 DATA "DUBUQUE ","IOWA " 315 DATA "MOLINE ","ILLINOIS " 316 DATA "DAVENPORT ","IOWA " 317 DATA "QUINCY ","ILLINOIS " 318 DATA "HANNIBAL ","MISSOURI " 319 DATA "ST.LOUIS ","MISSOURI " 320 DATA "CAPE GIRARDEAU ","MISSOURI " 321 DATA "CAIRO ","ILLINOIS " 322 DATA "HICKMAN ","KENTUCKY " 323 DATA "MEMPHIS ","TENNESSEE " 324 DATA "HELENA ","ARKANSAS " 325 DATA "VICKSBURG ","MISSISSIPPI " 326 DATA "NATCHEZ ","MISSISSIPPI " 327 DATA "BATON ROUGE ","LOUISIANA " 328 DATA "NEW ORLEANS ","LOUISIANA " 329 DATA "VENICE ","LOUISIANA " 399 REM ** QUIZ #4 400 DATA 20,3,4,5,6,"","","[144]","[158]" 401 REM * QUIZ TITLE 402 DATA "[160][160][160][160][160][160][160][160][195][201][212][201][197][211][160][207][198][160][212][200][197][160][199][210][197][193][212][160][204][193][203][197][211][160][160][160][160][160][160][146]" 403 REM * FORMAT LINE 404 DATA " ALONG THE LAKES FROM WEST TO EAST " 405 REM * HEADERS 406 DATA "[160][195][201][212][201][197][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 408 DATA "[160][211][212][193][212][197][211][160][160][160][160][160][160][160][160][160][160][160]" 409 REM ** QUIZ ITEMS IN CORRECT ORDER 410 DATA "DULUTH ","MINNESOTA " 411 DATA "SUPERIOR ","WISCONSIN " 412 DATA "MARQUETTE ","MICHIGAN " 413 DATA "SAULT STE.MARIE ","MICHIGAN " 414 DATA "GREEN BAY ","WISCONSIN " 415 DATA "MILWAUKEE ","WISCONSIN " 416 DATA "RACINE ","WISCONSIN " 417 DATA "CHICAGO ","ILLINOIS " 418 DATA "GARY ","INDIANA " 419 DATA "MUSKEGON ","MICHIGAN " 420 DATA "TRAVERSE CITY ","MICHIGAN " 421 DATA "BAY CITY ","MICHIGAN " 422 DATA "PORT HURON ","MICHIGAN " 423 DATA "DETROIT ","MICHIGAN " 424 DATA "TOLEDO ","OHIO " 425 DATA "CLEVELAND ","OHIO " 426 DATA "ERIE ","PENNSYLVANIA " 427 DATA "BUFFALO ","NEW YORK " 428 DATA "NIAGARA FALLS ","NEW YORK " 429 DATA "ROCHESTER ","NEW YORK " 499 REM ** QUIZ #5 500 DATA 20,6,14,1,8,"","[144]","","" 501 REM * QUIZ TITLE 502 DATA "[160][160][211][212][193][212][197][211][160][215][201][212][200][160][212][200][197][160][204][207][206][199][197][211][212][160]OCEAN[160][195][207][193][211][212][160][160][146]" 503 REM * FORMAT LINE 504 DATA " OCEAN COASTLINE, LONGEST FIRST " 505 REM * HEADERS 506 DATA "[160][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 508 DATA "[160][207][195][197][193][206][160][195][207][193][211][212][204][201][206][197][160][160]" 509 REM ** QUIZ ITEMS IN CORRECT ORDER 510 DATA "ALASKA ","6^640 MILES " 511 DATA "FLORIDA ","1^350 MILES " 512 DATA "CALIFORNIA "," 840 MILES " 513 DATA "HAWAII "," 750 MILES " 514 DATA "LOUISIANA "," 397 MILES " 515 DATA "TEXAS "," 367 MILES " 516 DATA "NORTH CAROLINA "," 301 MILES " 517 DATA "OREGON "," 296 MILES " 518 DATA "MAINE "," 228 MILES " 519 DATA "MASSACHUSETTS "," 192 MILES " 520 DATA "SOUTH CAROLINA "," 187 MILES " 521 DATA "WASHINGTON "," 157 MILES " 522 DATA "NEW JERSEY "," 130 MILES " 523 DATA "NEW YORK "," 127 MILES " 524 DATA "VIRGINIA "," 112 MILES " 525 DATA "GEORGIA "," 100 MILES " 526 DATA "ALABAMA "," 53 MILES " 527 DATA "MISSISSIPPI "," 44 MILES " 528 DATA "RHODE ISLAND "," 40 MILES " 529 DATA "MARYLAND "," 31 MILES " 599 REM ** QUIZ #6 600 DATA 20,12,11,13,10,"[158]","","","[149]" 601 REM * QUIZ TITLE 602 DATA "[160][160][160][160][160][160][160][212][200][197][160][205][207][211][212][160][208][207][208][213][204][193][212][197][196][160][211][212][193][212][197][211][160][160][160][160][160][160][160][146]" 603 REM * FORMAT LINE 604 DATA " HIGHEST POPULATION FIRST " 605 REM * HEADERS 606 DATA "[160][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 608 DATA "[160][200][207][215][160][205][193][206][217][160][208][197][207][208][204][197][160][160]" 609 REM ** QUIZ ITEMS IN CORRECT ORDER 610 DATA "CALIFORNIA ","25^174^000 " 611 DATA "NEW YORK ","17^667^000 " 612 DATA "TEXAS ","15^724^000 " 613 DATA "PENNSYLVANIA ","11^895^000 " 614 DATA "ILLINOIS ","11^486^000 " 615 DATA "OHIO ","10^746^000 " 616 DATA "FLORIDA ","10^680^000 " 617 DATA "MICHIGAN "," 9^069^000 " 618 DATA "NEW JERSEY "," 7^468^000 " 619 DATA "NORTH CAROLINA "," 6^082^000 " 620 DATA "MASSACHUSETTS "," 5^767^000 " 621 DATA "GEORGIA "," 5^732^000 " 622 DATA "VIRGINIA "," 5^550^000 " 623 DATA "INDIANA "," 5^479^000 " 624 DATA "MISSOURI "," 4^970^000 " 625 DATA "WISCONSIN "," 4^751^000 " 626 DATA "TENNESSEE "," 4^685^000 " 627 DATA "LOUISIANA "," 4^438^000 " 628 DATA "MARYLAND "," 4^304^000 " 629 DATA "WASHINGTON "," 4^300^000 " 699 REM ** QUIZ #7 700 DATA 20,3,9,1,5,"[144]","[158]","[149]","[144]" 701 REM * QUIZ TITLE 702 DATA "[160][160][160][160][212][200][197][160][204][193][210][199][197][211][212][160][211][212][193][212][197][211][160][201][206][160][212][200][197][160][213][206][201][207][206][160][160][160][160][146]" 703 REM * FORMAT LINE 704 DATA " START WITH THE LARGEST STATE " 705 REM * HEADERS 706 DATA "[160][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 708 DATA "[160][201][206][204][193][206][196][160][193][210][197][193][160][160][160][160][160][160]" 709 REM ** QUIZ ITEMS IN CORRECT ORDER 710 DATA "ALASKA ","589^757 SQ.MILES " 711 DATA "TEXAS ","267^338 SQ.MILES " 712 DATA "CALIFORNIA ","158^693 SQ.MILES " 713 DATA "MONTANA ","147^138 SQ.MILES " 714 DATA "NEW MEXICO ","121^666 SQ.MILES " 715 DATA "ARIZONA ","113^909 SQ.MILES " 716 DATA "NEVADA ","110^540 SQ.MILES " 717 DATA "COLORADO ","104^247 SQ.MILES " 718 DATA "WYOMING "," 97^914 SQ.MILES " 719 DATA "OREGON "," 96^981 SQ.MILES " 720 DATA "UTAH "," 84^916 SQ.MILES " 721 DATA "MINNESOTA "," 84^068 SQ.MILES " 722 DATA "IDAHO "," 83^557 SQ.MILES " 723 DATA "KANSAS "," 82^264 SQ.MILES " 724 DATA "NEBRASKA "," 77^227 SQ.MILES " 725 DATA "SOUTH DAKOTA "," 77^047 SQ.MILES " 726 DATA "NORTH DAKOTA "," 70^665 SQ.MILES " 727 DATA "OKLAHOMA "," 69^919 SQ.MILES " 728 DATA "MISSOURI "," 69^686 SQ.MILES " 729 DATA "WASHINGTON "," 68^192 SQ.MILES " 799 REM ** QUIZ #8 800 DATA 20,5,13,2,10,"","[144]","","[144]" 801 REM * QUIZ TITLE 802 DATA "[160][213][174][211][174][195][201][212][201][197][211][160][215][201][212][200][160][212][200][197][160][205][207][211][212][160][208][197][207][208][204][197][173][173][177][185][184][178][160][146]" 803 REM * FORMAT LINE 804 DATA " FROM THE LARGEST CITY TO THE SMALLEST " 805 REM * HEADERS 806 DATA "[160][195][201][212][217][255][211][212][193][212][197][160][160][160][160][160][160][160][160][160][160]" 808 DATA "[160][208][207][208][213][204][193][212][201][207][206][160][160][160][160][160][160][160]" 809 REM ** QUIZ ITEMS IN CORRECT ORDER 810 DATA "NEW YORK CITY^NY ","7^086^096 " 811 DATA "LOS ANGELES^CA ","3^022^247 " 812 DATA "CHICAGO^IL ","2^997^155 " 813 DATA "HOUSTON^TX ","1^725^617 " 814 DATA "PHILADELPHIA^PA ","1^665^382 " 815 DATA "DETROIT^MI ","1^138^717 " 816 DATA "DALLAS^TX "," 943^848 " 817 DATA "SAN DIEGO^CA "," 915^956 " 818 DATA "PHOENIX^AZ "," 824^230 " 819 DATA "SAN ANTONIO^TX "," 819^021 " 820 DATA "HONOLULU^HI "," 781^899 " 821 DATA "BALTIMORE^MD "," 774^113 " 822 DATA "INDIANAPOLIS^IN "," 707^655 " 823 DATA "SAN FRANCISCO^CA "," 691^637 " 824 DATA "SAN JOSE^CA "," 659^181 " 825 DATA "MEMPHIS^TN "," 645^760 " 826 DATA "WASHINGTON^DC "," 633^425 " 827 DATA "MILWAUKEE^WI "," 631^509 " 828 DATA "COLUMBUS^OH "," 570^588 " 829 DATA "NEW ORLEANS^LA "," 564^561 "